home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 03 - 1987 / 03.09 Sep 87 / fortran source / misc stuff / prport folder / prdefs.inc next >
Encoding:
Text File  |  1987-08-09  |  2.1 KB  |  67 lines  |  [TEXT/EDIT]
  1. * Listing 6
  2. * Modified prdefs.inc
  3. *
  4. * This file contains data definitions for use with the FORTRAN print
  5. * manager interface (prport.sub).  This is not a complete set of
  6. * print manager definitions; just enough to set up a basic print
  7. * loop, using the print manager style and job dialogs to fill
  8. * out the records.  See also prport.inc, prdrag.for.
  9. * 20 Jan 86    Sent to Compuserve.                EWG
  10. *
  11. * 9 Apr 87  Modified by Mark E. McBride to add additional print
  12. *           record offsets
  13. *
  14. * Offsets into the universal 120 byte printing record
  15. *
  16.     integer iPrVersion        ! Printing software version
  17.     parameter (iPrVersion=0)
  18.     integer prInfo            ! the PrInfo data associated with the current style.
  19.     parameter (prInfo=2)
  20.     integer rPaper            ! The paper rectangle [offset from rPage].
  21.     parameter (rPaper=16)
  22.     integer prStl            ! This print request's style.
  23.     parameter (prStl=24)
  24.     integer prInfoPT        ! Print Time Imaging metrics
  25.     parameter (prInfoPT=32)
  26.     integer prXInfo            ! Print-time (expanded) Print info record.
  27.     parameter (prXInfo=46)
  28.     integer prJob            ! The Print Job request
  29.     parameter (prJob=62)
  30.     integer iPrintSize        ! The Print record size.[120 bytes]
  31.     parameter (iPrintSize=120)
  32. *
  33. * Offsets into prInfo subrecord
  34. *
  35.     integer iDev            ! driver information
  36.     parameter (iDev=0)
  37.     integer iVRes            ! printer vertical resolution
  38.     parameter (iVRes=2)
  39.     integer iHRes            ! printer horizontal resolution
  40.     parameter (iHRes=4)
  41.     integer rPage            ! page rectangle
  42.     parameter (rPage=6)
  43. *
  44. * Offsets into prJob subrecord
  45. *
  46.     integer iFstPage        ! First page to print
  47.     parameter (iFstPage=0)
  48.     integer iLstPage        ! Last page to print
  49.     parameter (iLstPage=2)
  50.     integer iCopies            ! Number of copies to print
  51.     parameter (iCopies=4)
  52.     
  53.     integer bJDocLoop        ! Printing method
  54.     parameter (bJDocLoop=6)
  55.     integer bDraftLoop        ! Draft print flag.
  56.     parameter(bDraftLoop=0)
  57.     integer bSpoolLoop        ! Spooled print flag.
  58.     parameter (bSpoolLoop=1)
  59.     
  60.     integer iFromUsr        ! True from application
  61.     parameter (iFromUsr=7)
  62.     integer pIdleProc        ! background procedure
  63.     parameter (pIdleProc=8)
  64.     
  65.     integer iPrStatSize        ! The PrStatus record size [26 bytes]
  66.     parameter (iPrStatSize=26)
  67.